home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / baud173c.zip / RSB2BAUD.MRG < prev    next >
Text File  |  1992-02-29  |  4KB  |  109 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB2.BAS to produce RBBSSUB2.NEW
  3. * RBBSSUB2.BAS:  Date 9-5-1991  Size 138506 bytes
  4. * ------------[ Created 02-29-1992 ]------------
  5. 101 ' $SUBTITLE: 'GetCommand - sub to get command from command line'
  6. ' $PAGE
  7. '
  8. '  NAME    -- GetCommand
  9. '
  10. '  INPUTS  --     PARAMETER                    MEANING
  11. '             ZConfigFileName$     NAME OF RBBS-PC ".DEF" FILE TO
  12. '                                  USE AS A MODEL WHEN CREATING THE
  13. '                                  .DEF FILE NAME TO BE USED BY THIS
  14. '                                  COPY OF RBBS-PC.
  15. '
  16. '             COMMAND LINE         COMMAND LINE USED TO INVOKE
  17. '                                  RBBS-PC IN THE FORM:
  18. '
  19. '       RBBS-PC.EXE x filename DEBUG /time /baud /reliable
  20. '
  21. '   WHERE THE OPTIONAL PARAMETERS ARE:
  22. '
  23. '  x       IS THE NODE ID IN THE RANGE 1-9,0,A-Z
  24. ' filename IS THE FULLY QUALIFIED FILE NAME TO USE AS THE ".DEF" FILE
  25. ' DEBUG    IS A DEBUGGING Switch
  26. ' /time    IS THE TIME OF DAY FOR RBBS-PC TO RETURN TO THE CALLER
  27. ' /baud    IS THE BAUD RATE OF THE CALLER IF RBBS-PC IS BEING SHELLED TO BY
  28. '             ANOTHER COMMUNICATIONS PROGRAM (THE COMMUNICATIONS PORT BEING
  29. '             USED IS ASSUMED TO BE THE ONE INPUTTED VIA THE RBBS-PC CONFIG
  30. '             PROGRAM
  31. ' /reliable IS IF RELIABLE MODE WAS DETECTED BY A HOST MAILER
  32. '
  33. ' IF NO PARAMETERS ARE SUPPLIED, RBBS-PC ASSUMES THAT THE .DEF FILE NAME IS
  34. ' RBBS-PC.DEF AND THAT THE NODE IS NODE 1.
  35. '
  36. '  OUTPUTS -- ZConfigFileName$     NAME OF RBBS-PC ".DEF" FILE FOR
  37. '                                  THIS COPY OF RBBS-PC TO USE
  38. '             ZNodeRecIndex    RECORD NUMBER WITHIN THE
  39. '                                  MESSAGES FILE FOR THIS "NODE"
  40. '                                  (RANGE IS 2 TO 36)
  41. '
  42. '  PURPOSE --  To get node id from command line and determine if rbbs
  43. '              is being run as a door
  44. '
  45.       SUB GetCommand (PassedDebug,NetTime$,ZNetBaud$,ZNetReliable$) STATIC
  46.       STATIC ZDebug
  47. '
  48. '
  49. ' *  GET NODE ID FROM COMMAND LINE
  50. '
  51. '
  52.       WasPM$ = COMMAND$
  53.       CALL AllCaps(WasPM$)
  54.       IF INSTR(WasPM$,"/") = 0 THEN _
  55.          GOTO 103
  56. '
  57. '
  58. ' * PARSE THE COMMAND LINE FOR THREE POSITIONAL SWITCHES FOR NET MAIL
  59. '
  60. '
  61.       CmdLine$ = MID$(WasPM$,INSTR(WasPM$,"/"))
  62.       WasPM$ = LEFT$(WasPM$,INSTR(WasPM$,"/") - 1)
  63.       ZWasA = 0
  64.       FOR WasX = 1 TO LEN(CmdLine$)
  65.           IF MID$(CmdLine$,WasX,1) = "/" THEN _
  66.              ZWasA = ZWasA + 1 : _
  67.              ZSubDir$(ZWasA) = "" _
  68.           ELSE ZSubDir$(ZWasA) = ZSubDir$(ZWasA) + MID$(CmdLine$,WasX,1)
  69.       NEXT
  70.       NetTime$ = ZSubDir$(1)
  71.       IF ZWasA > 1 THEN _
  72.          ZNetBaud$ = ZSubDir$(2)
  73.       IF ZWasA > 2 THEN _
  74.          ZNetReliable$ = ZSubDir$(3)
  75.       IF ZWasA > 3 THEN _                                            ' RM022301
  76.          ZCBaud$ = ZSubDir$(4)                                       ' RM022301
  77.       CALL Trim(NetTime$)
  78.       CALL Trim(ZNetBaud$)
  79.       CALL Trim(ZNetReliable$)
  80. 327 CALL TestRel (ModemResponse$)
  81. 328 IF ZBaudTest! = 0 THEN _                                         ' RM022301
  82.        GOTO 324                                                      ' RM022301
  83.     IF ZBaudTest! = 300 THEN _                                       ' RM022301
  84.        ZBPS = -1 : _
  85.        GOTO 331
  86.     IF ZBaudTest! = 1200 OR ZBaudTest! = 1275 THEN _
  87.        ZBPS = -3 : _
  88.        GOTO 331
  89.     IF ZBaudTest! = 2400 THEN _
  90.        ZBPS = -4 : _
  91.        GOTO 331
  92.     IF ZBaudTest! = 4800 THEN _
  93.        ZBPS = -5 : _
  94.        GOTO 331
  95.     IF ZBaudTest! >= 7200 AND ZBaudTest! <= 14400 THEN _
  96.        ZBPS = -6 : _
  97.        GOTO 331
  98.     IF ZBaudTest! = 19200 THEN _
  99.        ZBPS = -7 : _
  100.        GOTO 331
  101.     IF ZBaudTest! = 38400 THEN _
  102.        ZBPS = -8 : _
  103.        GOTO 331
  104.     GOTO 324
  105. 331 ZCBaud$ = STR$(ZBaudTest!)                                       ' RM022901
  106.     CALL Trim (ZCBaud$)                                              ' RM022301
  107.     CALL SetBaud
  108.     ZSubParm = 2
  109.